home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
versa11.arc
/
VERSA2.MNU
< prev
next >
Wrap
Text File
|
1987-05-23
|
14KB
|
512 lines
SELECT:
SWIT S1
CASE"212"
GOTO NEW_YORK
ENDC
CASE"215"
GOTO PHILLY
ENDC
CASE"919"
GOTO R_T_PARK
ENDC
CASE"813"
GOTO TAMPA
ENDC
CASE"202"
GOTO WASH_DC
ENDC
CASE"312"
GOTO CHICAGO
ENDC
DEFA
ASSI S9"ERROR"
EXEC"VERSA.CMD"
ENDC
ENDS
NEW_YORK:
CLEA
LOCA 2,0
MESS" ╒════════╡ New York BBS Directory (212) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Invention Factory Everything │"
MESS" │ < 2> Friends Conversation │"
MESS" │ < 3> PC Magazine IRS PC Mag Utilities │"
MESS" │ < 4> Wolves' Den PC Board │"
MESS" │ < 5> NY BBS Service │"
MESS" │ < 6> Net Works │"
MESS" │ < 7> Marble Hill │"
MESS" │ < 8> NY Connection │"
MESS" │ < 9> Chelsea Square │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"4311194"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"7814723"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6960360"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"8746319"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9800770"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"4100949"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"5625308"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"6285495"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"8071267"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
PHILLY:
CLEA
LOCA 2,0
MESS" ╒══════╡ Philadelphia BBS Directory (215) ╞══════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Softshop │"
MESS" │ < 2> Homer Systems │"
MESS" │ < 3> System2 │"
MESS" │ < 4> Garden Works │"
MESS" │ < 5> Micro BBS │"
MESS" │ < 6> DATANET │"
MESS" │ < 7> Matrix │"
MESS" │ < 8> CITADEL BBS │"
MESS" │ < 9> Compu Chuck │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"6631487"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"5247027"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"5841412"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"2765177"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"3386005"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"5639211"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"6323986"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"6381176"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"6711256"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
R_T_PARK:
CLEA
LOCA 2,0
MESS" ╒═╡ Research Triangle Park BBS Directory (919) ╞═╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Mists of Avalon │"
MESS" │ < 2> The Third Wave │"
MESS" │ < 3> The Second Ring │"
MESS" │ < 4> The Extra Ball │"
MESS" │ < 5> The Clone Connection │"
MESS" │ < 6> GTS RBBS │"
MESS" │ < 7> The Starfleet RBBS │"
MESS" │ < 8> Nibbles & Bytes │"
MESS" │ < 9> The TeXnet BBS │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"7566151"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"7909470"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"8474625"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"8515563"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"4719771"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"4790043"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"7823095"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"9429267"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"9680657"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
TAMPA:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Tampa BBS Directory (813) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Sands of Babylon │"
MESS" │ < 2> The Swamp │"
MESS" │ < 3> BIDS RBBS │"
MESS" │ < 4> Amateur Radio │"
MESS" │ < 5> Ark Tangent Comp Sci │"
MESS" │ < 6> CAD Connx │"
MESS" │ < 7> Shamrock BBS │"
MESS" │ < 8> │"
MESS" │ < 9> │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"2547710"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"8316841"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"8393003"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"8856524"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9326939"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"8820494"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"6812611"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
WASH_DC:
CLEA
LOCA 2,0
MESS" ╒═╡ Washington DC BBS Directory (202/301/703) ╞═╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Net-Exchange PC Pursuit │"
MESS" │ < 2> Interconnect Jeff Morley │"
MESS" │ < 3> DARWIN Home of DARWIN list │"
MESS" │ < 4> Capitol Connection Everything │"
MESS" │ < 5> Gannett Help Screen Publishing │"
MESS" │ < 6> ITC │"
MESS" │ < 7> Data Gate │"
MESS" │ < 8> National Geographic │"
MESS" │ < 9> Geobyte │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"6893561"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"8275762"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"2519206"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"2805490"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"5243982"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"2751010"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"9488332"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"7756738"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"5935946"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
CHICAGO:
CLEA
LOCA 2,0
MESS" ╒════════╡ Chicago BBS Directory (312) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Super Board Files, Files, Files │"
MESS" │ < 2> Lakes Region RBBS │"
MESS" │ < 3> RIPCOoard Pseudo Illegal │"
MESS" │ < 4> LAWMUG Law, Lawyers │"
MESS" │ < 5> Chicago Computer Society │"
MESS" │ < 6> Ski's Lodge │"
MESS" │ < 7> Excellence │"
MESS" │ < 8> Waukegan Pub Lib Sys │"
MESS" │ < 9> Windmill │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"8824227"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"8728086"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"5285020"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"2808180"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9406496"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"2829272"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"3982872"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"6232226"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"8798027"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9
ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"